home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / DMTDEMOS / RENFILE.DEM < prev    next >
Text File  |  1994-07-02  |  613b  |  35 lines
  1. program RenFileSample;
  2.  
  3.  uses crt, DMT;
  4.  
  5.  var
  6.    OldFileName,
  7.    NewFileName  : string;
  8.  
  9. begin
  10.   OldFileName := '';
  11.   NewFileName := '';
  12.  
  13.   Color( 7, 0 );
  14.   clrscr;
  15.   write( 'Enter filename to rename : ' );
  16.   readln( OldFileName );
  17.  
  18.   write( 'Enter new filename       : ' );
  19.   readln( NewFileName );
  20.  
  21.   RenFile( OldFileName, NewFileName );    { Call RenFile procedure }
  22.  
  23.   if ( ErrFlag ) then
  24.     begin
  25.       writeln( #7 );
  26.       writeln( ShowError( GetErrCode ) );
  27.     end
  28.   else
  29.     begin
  30.       writeln;
  31.       writeln( 'File successfully renamed.' );
  32.     end;
  33.  
  34.   GetEnter;
  35. end.